約 3,010,074 件
https://w.atwiki.jp/keiplus/pages/249.html
職場向けVBA vba 職場 本項は書きかけの記事です。正確な情報は公式サイト、公式ドキュメント、記載の参照サイトでご確認ください。 OSS(OpenSourceSoftware)を利用しています。使用期限や保守、公開期間の確約がないことに留意してください。 目次 + 読む 職場向けVBA目次 よく使うマクロ 参考 よく使うマクロ Common オブジェクト一括削除 非表示行の一括表示 描画オブジェクト、表、テキストボックスの一括縮小 シェイプ画像の一括圧縮 関数 log4timestamp("文字列") 汎用処理 + 読む CommonLibrary オブジェクト一括削除 todo functionの引数を変えても変わらないバグ Sub deleteAllObjects() Dim obj As Object Dim ws As Worksheet Dim hyperlink As hyperlink Dim description As String Set ws = ActiveSheet For Each obj In ActiveSheet.Shapes obj.Delete log4timestamp ("Shapes") Next obj For Each obj In ActiveSheet.ChartObjects obj.Delete log4timestamp ("ChartObjects") Next obj For Each obj In ActiveSheet.OLEObjects obj.Delete log4timestamp ("OLEObjects") Next obj For Each obj In ActiveSheet.Buttons obj.Delete log4timestamp ("Buttons") Next obj For Each obj In ActiveSheet.ListBoxes obj.Delete log4timestamp ("ListBoxes") Next obj For Each obj In ActiveSheet.CheckBoxes obj.Delete log4timestamp ("CheckBoxes") Next obj For Each obj In ActiveSheet.OptionButtons obj.Delete log4timestamp ("OptionButtons") Next obj delete hyperlins For Each hyperlink In ws.Hyperlinks hyperlink.Delete log4timestamp ("Hyperlinks") Next hyperlink End Sub Sub ShowHiddenRowsInRange() Dim rng As Range Set rng = Range("A1 A10") 表示したい範囲を指定 rng.EntireRow.Hidden = False Rows.Hidden = False log4timestamp ("ShowHiddenRowsInRange") End Sub Sub ShrinkObjects() Dim obj As Object Dim ws As Worksheet Set ws = ActiveSheet 縮小したいオブジェクトが含まれているシートを指定 シート上のすべてのオブジェクトを縮小する For Each obj In ws.Shapes obj.ScaleWidth 0.75, msoFalse, msoScaleFromTopLeft obj.ScaleHeight 0.75, msoFalse, msoScaleFromTopLeft Next obj シート上のすべてのチャートを縮小する For Each obj In ws.ChartObjects obj.Width = obj.Width * 0.75 obj.Height = obj.Height * 0.75 Next obj シート上のすべてのテキストボックスを縮小する For Each obj In ws.TextBoxes obj.Width = obj.Width * 0.75 obj.Height = obj.Height * 0.75 Next obj log4timestamp ("ShrinkObjects") End Sub Sub CompressImages() Dim ws As Worksheet Dim shp As Shape For Each ws In ThisWorkbook.Worksheets すべてのシートに対して処理を繰り返す For Each shp In ws.Shapes シート内のすべてのシェイプを取得する If shp.Type = msoPicture Then シェイプが画像である場合のみ処理を実行する shp.PictureFormat.Compression = 80 圧縮率を設定する（ここでは80%に設定していますが、必要に応じて変更してください） shp.PictureFormat.SaveWithDocument = True 圧縮画像をブックに保存する End If Next shp Next ws End Sub メール送信 定期的に送信するメール用 + 読む Sub createstarttelework() Dim OutApp As Object Dim OutMail As Object Dim fso As Object Dim textFile As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) Dim mailDate As String mailDate Format(Now, "MM/DD") Set fso = CreateObject("Scripting.FileSystemObject") Set textFile = fso.opentextfile("c \aaa\bbb\importfile.txt", 1) bodyText = textFile.ReadAll textFile.Close With OutMail .To = "joshi@example.com; joshi2@example.com" .CC = "joshi@example.com; joshi2@example.com" .BCC = "me@example.com" .Subject = mailDate "出勤" .Body = bodyText .Display End With Set OutMail = Nothing Set OutApp = Nothing Set fso = Nothing End Sub Outlook・特定のフォルダ―の件名、受信日時を取得したリストを書き出す + 読む 【注意】FSOは参照設定のMicrosoft Scripting Runnerを有効化する必要がある。 Sub ExportEmailSubjectsAndReceivedDates() Dim outlookApp As Outlook.Application Dim namespace As Outlook.NameSpace Dim folder As Outlook.Folder Dim mailItems As Outlook.Items Dim mailItem As Object Dim startDate As Date Dim endDate As Date Dim filter As String Dim fso As Object Dim textFile As Object Dim filePath As String Outlookのセットアップ Set outlookApp = New Outlook.Application Set namespace = outlookApp.GetNamespace("MAPI") フォルダのパスに基づいてフォルダを取得 Set folder = namespace.Folders("メールボックス名").Folders("受信トレイ").Folders("path").Folders("to").Folders("targetfolder") メールボックス名は基本はメールアドレス 取得するメールの期間を設定 startDate = "2023/11/01" endDate = "2023/11/30" 期間に基づいてフィルタを設定 filter = "[ReceivedTime] = " Format$(startDate, "ddddd h nn AMPM") _ " And [ReceivedTime] = " Format$(endDate, "ddddd h nn AMPM") " " フィルタを適用してメールを取得 Set mailItems = folder.Items.Restrict(filter) mailItems.Sort "[ReceivedTime]", True 受信日時でソート 出力するテキストファイルのパス filePath = "C \EmailSubjectsAndDates.txt" ファイル名を含めたフルパスを記載 FileSystemObjectのセットアップ Set fso = CreateObject("Scripting.FileSystemObject") Set textFile = fso.CreateTextFile(filePath, True) メールの件名と受信日時をファイルに書き込む For Each mailItem In mailItems If mailItem.Class = olMail Then textFile.WriteLine "件名 " mailItem.Subject " - 受信日時 " mailItem.ReceivedTime End If Next mailItem ファイルを閉じる textFile.Close オブジェクトの解放 Set fso = Nothing Set textFile = Nothing Set mailItems = Nothing Set folder = Nothing Set namespace = Nothing Set outlookApp = Nothing 完了メッセージ MsgBox "メールの件名と受信日時が出力されました。", vbInformation End Sub メール本文に入れ込むファイルパスを指定したい場合 + 読む Sub createweekendreport() Dim OutApp As Object Dim OutMail As Object Dim fso As Object Dim textFile As Object Dim bodyText As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) Dim mailDate As String mailDate Format(Now, "MM/DD") FilePath = InputBox("週報のファイルを指定", "入力", "c \aaa\bbb\ccc") If FilePath = "" Then Exit Sub On Error Resume Next Set fso = CreateObject("Scripting.FileSystemObject") Set textFile = fso.opentextfile("c \aaa\bbb\importfile.txt", 1) If Err.Number 0 Then MsgBox "ファイルパスが不正", vbExclamation Exit Sub End If On Error GoTo 0 bodyText = textFile.ReadAll textFile.Close With OutMail .To = "joshi@example.com; joshi2@example.com" .CC = "joshi@example.com; joshi2@example.com" .BCC = "me@example.com" .Subject = mailDate "出勤" .Body = bodyText .Display End With Set OutMail = Nothing Set OutApp = Nothing Set fso = Nothing End Sub ハイパーリンクからマクロを実行する + 読む １．動かしたいサブプロシージャ―を作成 ２．VBA・プロジェクトビューワのExcelObjectsにある「ThisWorkBook」で次のPrivate サブプロシージャ―を作成する Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink) Call 動かしたいサブプロシージャ―名 End Sub ３．シートでハイパーリンクを作成する。 このときリンク先は自身のセルを指定すると良い。 （メリット） マクロの起動にはメニューの開発からマクロを選択したり、オブジェクト画像にマクロをリンクさせる方法があるが いずれも面倒さがある。ハイパーリンクから起動する場合、設置が楽で汎用性があるところがメリット。 （注意点） ThisWorkBookにプロシージャ―を置いているので、ハイパーリンクを踏むと全てのシートで同一マクロを動かしてしまうので注意。 特定シート、セルからのみ動かしたい場合はWorkbook_SheetFollowHyperlinkの引数を利用して条件分けすることで対処できる。 シート別に動かすマクロを変える場合は、引数Sh、Targetを利用して条件分けする必要がある。 Sh.Nameでシート名を取得でき、 Target.SubAddressで「シート名!A1」形式でセル座標を取得でき、 Target.Nameで「ハイパーリンクにしている文字列」を取得できる ので、細かく条件分けすることができる。 DL CommonLibrary.basダウンロード 参考
https://w.atwiki.jp/nagasato/pages/71.html
Link page インターネットでお金稼ぎ Linux etc fileについて インターネットでお金稼ぎ
https://w.atwiki.jp/ggxx_matome/pages/77.html
動画1 動画2 妄言・言動集 対戦前にレバガチャしてロビーから退出⇒対戦してるが？ 「20秒棒立ちしてくれ」 対戦中は「7〜10Fディレイ固定」「19F遅延の時も」 「無線ってなんですか」 結果 シュウト「（心を）折ったよ」 シュウト「ハメはやめて欲しいと言ったのでハイタカは封印して、最終的に「開幕20秒攻撃禁止」ルールを適用して79秒から殴り始めて倒したら折れた」 2021年対戦に関係ない箇所を削除 ルハってホントアホだよな https //twitter.com/ruharoki/status/1573965451226333185?t=8AYFc0oHS9M9KGdXbNPk9w s=19 リンク貼ってくれたんだ、サンクス！腕が！！
https://w.atwiki.jp/internet-notes/pages/12.html
目次 ファイル操作 ExcelVBAで、ファイルを作成する。 Windows API WindowsのAPIを用いて、Excel VBAからキーボードを操作する。 ユーザーフォーム Excelのワークシートをダブルクリックした際、クリック位置のおよそ右下にユーザーフォームを表示する。 ファイル操作 ExcelVBAで、ファイルを作成する。 Windows API WindowsのAPIを用いて、Excel VBAからキーボードを操作する。 Shell関数などを用いて、他のアプリケーションを起動した際、通常のキーであれば、SendKeysによって操作できるが、Alt+TabやAlt+PrintScreenなどのキー操作はできない。その際に、以下のようにAPIを用いてキー操作を擬制する。 Visual BasicのKey Code 定数(MSDN) Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Const KEYEVENTF_EXTENDEDKEY As Long = H1 Private Const KEYEVENTF_KEYUP As Long = H2 Private Const VK_LMENU As Long = HA4 Private Const fKEYDOWN = KEYEVENTF_EXTENDEDKEY Private Const fKEYUP = KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP Alt+Tabキーを押すマクロ Sub S_AltTab() keybd_event VK_LMENU, 0 , fKEYDOWN, 0 keybd_event vbKeyTab, 0 , fKEYDOWN, 0 keybd_event vbKeyTab, 0 , fKEYUP, 0 keybd_event VK_LMENU, 0 , fKEYUP, 0 End Sub PrintScreenキーを押すマクロ Sub S_PrintScreen() keybd_event vbKeySnapshot, 0 , fKEYDOWN, 0 keybd_event vbKeySnapshot, 0 , fKEYUP, 0 End Sub ユーザーフォーム Excelのワークシートをダブルクリックした際、クリック位置のおよそ右下にユーザーフォームを表示する。 シートの縮尺を変えたり、右スクロールをしてダブルクリックをするとうまくいかない。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) With UserForm1 .StartUpPosition = 0 表示位置を初期化 .Top = Target.Top + 100 上端からの距離 .Left = Target.Left + 100 左端からの距離 .Show 表示 End With End Sub 最終更新日時：2008年10月04日 05時37分28秒
https://w.atwiki.jp/hitsville/pages/91.html
Healing(by Richard Smallwood) Don t be discouraged Joy comes in the morning Know that God is nigh Stand still and look up God is going to show up He is standing by There s healing for your sorrow Healing for your pain Healing for your spirit There s shelter from the rain Lord send the healing For this we know There is a balm in Gilead For there s a balm in Gilead There is a balm in Gilead To heal the soul Healing for the soul 落胆しないで 朝には喜びがくる 神は近くにいると知って 立ち止まって、天を見上げて 神は現れてくださる そして力になってくださる あなたの悲しみのために癒しがある あなたの痛みのために癒しがある あなたの魂のために癒しがある 雨からの隠れ場がある 神よ、癒しを与えてください なぜなら私たちは ギルアデには乳香があることを知っているから ギルアデには乳香があるから ギルアデには魂を癒す乳香がある 魂の癒しがある
https://w.atwiki.jp/nyanz/pages/12.html
LINK 猫鯖HP BBS @ 猫鯖 CS S 2chテンプレ CS Sアップローダー① CS Sアップローダー② BIGLAN ONLINE CSSCTL
https://w.atwiki.jp/multiwinia_jp/pages/53.html
Uplinkを日本語化する時にヒントになりそうな情報を置いておきます。 ※私は製品版を持っていないため、このページの情報はデモ版を元に作られています。製品版では異なる場合があります。 基本 拡張子が.datのファイルは、data.datを除き、全てrar形式の圧縮ファイルです。拡張子を.rarに変えて解凍することで中を見ることができます。 メッセージ UplinkのメッセージはUplink.exeの中にバイナリとして埋め込まれています。 編集するときはバイナリエディタを使う必要があります。大変危険な行為です。 バイナリ直接編集による日本語化の場合、原文の長さより日本語を長くすることはできません。 デモ版では、メッセージを日本語化（全角・半角カタカナ）しても文字化けします。 フォント Uplink.exeがあるフォルダにfontsフォルダを作って、中に適当なTTFフォント（TTCは不可）を2つ入れて、名前をBATTLE3.TTFとdungeon.TTFにすれば、フォントを変更できます。 中国語版 http //code.google.com/p/uplinkchs/に中国人が中国語化したUplink.exeがあります。これを使うと日本語も表示できることを確認済みです。
https://w.atwiki.jp/atelier-hs/pages/29.html
writer 音依 対戦での戦闘機 対戦での戦闘機の戦い方についてまとめたページです 戦闘機の特徴 まずは戦闘機の長所と短所をざっと挙げてみます 長所 短所 高速・高機動 攻撃・防御スキルがない ロケットが装備可能 ミサイル・機雷が装備不可 バレルロールによる無敵時間 基本的に戦闘機は突出した性能がない代わりに、弱点もないという特徴を持っています また、機種の豊富さから自分の戦い方に合った機体を選ぶことができるのも戦闘機の利点です 戦闘機の基本 戦闘機全般で使えるの基本的な技術を紹介します ターゲット視点 キーボードでは初期設定でFキー ターゲットに指定している相手の方を向きながら戦うことができます 一機の相手に集中する時には相手の機体の向き・軌道・距離・被弾状況などが逐一確認できるため、常時ターゲット視点で戦えるようになるとかなり楽になります 特に1 1の戦闘だとこれが使えるのと使えないのでは大きな差がつきます 自機の制御に不慣れな場合は地面に衝突するので要注意 ロケ爆 目標を視界に入れてロケットを発射、即座に武器切り替えで爆弾を当てる技術です 機銃と機関砲は対戦に慣れれば慣れる程狙える機会が少なくなるので自然とこの技術が主なダメージソースになります 攻撃したい相手にロケットの予測射撃をするとそのまま加速すれば爆弾が当たるぐらいのポイントに移動します これを利用してすれ違いざまor追い越しざまに爆弾を投下すると高確率で当てることができます 慣れてくればバレルロール中に狙うことで無敵・高火力・高速の三拍子が揃った非常に有能な攻撃手段になります 上下旋回 旋回の時に水平面での旋回だけではなく上昇・下降を混ぜて動く技術です 上昇・下降中は水平移動距離が短くなるので体感的には旋回性能が急激に上昇したように感じます 旋回戦ではこの技術を使うか否かで大きな差がつくので是非使いこなせるようになりたい技術です また、上昇・下降中に加速を加えると軌道が複雑になり被弾率を下げることができます 爆弾遠投 機種を水平にした状態で加速し、爆弾を投下する瞬間に機種を上げることでより遠くまで爆弾を飛ばす技術です 乱戦に巻き込まれないように高高度から投げてみたり、機雷や相手の爆弾を避けながら爆弾を当てたりする時に有効 置き爆（置きボム） 自分が追いかけられてる時に急上昇、急旋回、ブレーキ等を使い追いかけてくる相手との「水平面での」距離を縮めます その時に爆弾を投下し、再び加速すると追いかけてきた相手は爆弾に突っ込むことになります 距離を縮める時に水平面での距離ではなく直線距離を縮めてしまうと自分が被弾してしまうので注意 戦闘機を分類する 戦闘機は機体性能や装備によって何種類かに分類することができます それぞれ戦い方や得意・不得意がありますので自分が大体どれに属するか、またよく戦う対戦相手がどれに属するかを覚えておくと良いでしょう また、ここで挙げている三種以外にも低速度・低機動で攻撃力に特化した攻撃機というものもあります 対戦では非常に不利となるため普通はミッション・占領戦（対地攻撃）向けです 旋回型 代表的な機体ではスピット・Yak-3 装備次第ではバランス機体のコルセアやウォーホークも旋回性能では劣りますがこの分類になります 速度型 ムスタングB・ライトニング・La-5等の機体速度が速い機体です 旋回型と同じくバランス機体の装備を調節してもこの分類に入ることができます バランス型 機動性と速度が大体同じになるように装備を調節した場合はこの分類になります バランス機体以外では装備の％補正で特徴を打ち消すことになります 分類別の特徴 三つの分類の特徴について触れておきます 旋回型 1 1のドッグファイトに強く、扱いやすいため対戦慣れするのにも向いています 欠点は速度ですが、スキルを駆使することで高速戦闘機以外が相手だと容易にカバーできます 速度型 ひたすら速く、通り道を工夫すると乱戦ではほとんど捕捉されることがありません 更に速度が速い程爆弾の当たり判定が前後に伸びるため、爆弾を当てるのが得意な人が使うと恐ろしい攻撃範囲を持つことができます 欠点としては元の機動性が低く、更に速度が速くなることで旋回半径が拡大してしまうので体感では恐ろしく「曲がりません」 総じて言えば乱戦向けです バランス型 弱点はただひとつ、「長所がない」ことです バランス型というと扱いやすそうなイメージがありますが、実際には三つの分類の中で最も乗りこなすのが難しいタイプです ドッグファイトも乱戦も適度にこなし、逃げ切る手段が少ない管制・爆撃相手に有効です 分類別の戦法・1 1 対戦の技術向上として一般的な1 1形式での戦い方を紹介します 旋回型 兎に角相手の後ろを取ることが基本です 高い旋回性能に加えて上昇・下降を駆使して戦います 距離を離されてヘッドオンになった場合はかならずバレルロールの無敵時間を使いましょう 他にも距離があれば旋回中の相手にバレルロールで突撃することもできます バレルロール中にロケット＋爆弾のコンボが当てられるようになると勝率が上がります 速度型 機動性で勝負されると手も足も出ないので遠距離からヘッドオンでの一撃離脱が基本になります 高速の恩恵として爆弾の当たり判定が前寄りにかなり広いので積極的に狙っていきましょう 爆撃機の機雷を避けるのが難しかったり、距離を離した所で狙撃されたりするのが注意点です ヘッドオンで確実に攻撃が当てることができるようになると勝率が上がります バランス型 旋回戦にもヘッドオンにもいつでも切り替えられるようにするのがポイントです 前提として旋回型の戦い方も速度型の戦い方もできるだけの技術が要求されます 相手の弱点を見極めることができれば勝率が上がります 分類別の戦法・乱戦 占領戦・大人数対戦等の乱戦での戦い方です チーム戦を前提に書いていますが、対戦の個人戦でも応用が利きます 旋回型 攻撃を食らわないように上下旋回を繰り返しながら地道に、確実にダメージを与えていくのが基本的な立ち回りです 性能的には一機を追い掛け回すこともできますが、横合いからの被弾を考えるとある程度人数が少なくなるまでは避けた方が無難です スキルの急降下を使うことで使い勝手では劣りますが高速機と同じ戦法をとることもできます 速度型 主戦場へバレルロールで高速突入、ロケットや爆弾を放り投げて一撃離脱が基本になります 後ろへ張り付かれることはほとんどありませんが、管制機のミサイルが後ろからついてくることがあるので振り返る距離には注意しましょう その場で振り向く、水平に加速しながら大きく旋回して振り向く、上下旋回を混ぜて振り向くなど 振り向き方を工夫すると被弾が減ります 突入時にはなるべく敵が多いところを目指して飛び込むと狙った機体に爆弾が当たらなくても他の機体へ当たることが期待できます 突入角度を誤ると敵機のすぐ近くで失速することになるので要注意です バランス型 多様な立ち回りができることを活かして、味方の弱点を補強したり相手の弱点を突いたりと臨機応変な立ち回りが可能です スキルに急降下をセットすると高速戦闘が可能になり、インメルマンターンをセットするとドッグファイトがやりやすくなります 名前 コメント
https://w.atwiki.jp/v2netbattle/pages/19.html
サイトを移転しました（クリックで移動します）
https://w.atwiki.jp/hikarino_youko/pages/40.html
＞ BACK （もどる） Links ＞ Would you like to go to the links of the materials? （素材リンクはこちら！） ※Links are in preparation.（リンク先の準備中です）Those have lined up into alphabet order. それは、真実なのですか？ - Is that true? 事実をもとにした映画 - Movies Based on Fact alphabet order あいうえお順 実在の人物たち - Real Persons alphabet order あいうえお順 クール - Cool alphabet order あいうえお順 秀逸だと思ったアニメたちをご紹介！ 辞書 - Dicあいうえお順 かわいい - Kawaii (means cute in Japanese) alphabet order あいうえお順 ポイント - Points alphabet order あいうえお順 欲しいもの （私が） - I need... + あと、温泉とか、奈良にも行ってみたいです。 あと、こんなのは、いかがですか？ - Do you know? ＞ BACK （もどる） 表示 - A IndicationAll contents of this page can t be reprinted. But the minimum quotations and links are legal. If you d like reprint , please link with this page instead of it. リンクと、最小限の引用は合法です。転載は禁止！ © This page by hikarino_youko is All Rights Reserved. 2009. ここから@Wikiのリンクと、スポンサーのCMになります。Links of @wiki and CM